home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 October / 1988-10.d64 / ram save (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  37 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 15 print"[147]":poke646,14:poke53280,14:poke53281,6
  3. 20 fori=49152to49381:reada:pokei,a:x=x+a:next
  4. 30 ifx<>35805thenprint"error in data statements":end
  5. 40 print"[147]             copyright 1988"
  6. 45 print"       compute! publications, inc."
  7. 50 printtab(11)"all rights reserved"
  8. 60 print"     64 kernal ram save is [158]active."
  9. 70 print"      call using the following:"
  10. 80 print"      sys49152,s-65536,e-65535,n$"
  11. 90 print"   where [158]s  is starting address,"
  12. 100 printtab(9)"[158]e  is ending address,"
  13. 110 printtab(9)"[158]n$ is file name + ',p,w'"
  14. 120 data32,253,174,32,158,173,32,170,177,141
  15. 130 data234,192,140,233,192,32,253,174,32,158
  16. 140 data173,32,170,177,141,236,192,140,235,192
  17. 150 data32,253,174,32,158,173,160,0,177,71
  18. 160 data141,230,192,200,177,71,141,231,192,200
  19. 170 data177,71,141,232,192,162,8,138,160,2
  20. 180 data32,186,255,160,0,173,230,192,174,231
  21. 190 data192,172,232,192,32,189,255,32,192,255
  22. 200 data162,8,32,201,255,173,233,192,133,253
  23. 210 data32,210,255,173,234,192,133,254,32,210
  24. 220 data255,32,125,192,56,173,235,192,237,233
  25. 230 data192,133,251,173,236,192,237,234,192,133
  26. 240 data252,32,162,192,96,120,165,1,41,248
  27. 250 data133,1,96,165,1,9,7,133,1,88
  28. 260 data96,32,133,192,162,0,189,0,207,32
  29. 270 data210,255,232,236,237,192,208,244,32,125
  30. 280 data192,96,166,252,240,27,202,134,252,160
  31. 290 data0,162,0,177,253,157,0,207,232,200
  32. 300 data208,247,140,237,192,32,141,192,230,254
  33. 310 data76,162,192,166,251,164,251,240,19,142
  34. 320 data237,192,202,136,177,253,157,0,207,136
  35. 330 data202,224,255,208,245,32,141,192,32,133
  36. 340 data192,32,204,255,169,8,32,195,255,96
  37.